object HtmlBkSetup: THtmlBkSetup Left = 524 Top = 221 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Document Background' ClientHeight = 443 ClientWidth = 481 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 20 Top = 25 Width = 42 Height = 16 Caption = '&Colour:' end object clColor: TColorBox Left = 98 Top = 20 Width = 366 Height = 22 Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames] ItemHeight = 16 TabOrder = 0 end object cbUseImage: TCheckBox Left = 20 Top = 69 Width = 424 Height = 21 Caption = 'Use &Background Image' TabOrder = 1 OnClick = cbUseImageClick end object gbImage: TGroupBox Left = 20 Top = 98 Width = 444 Height = 297 Caption = 'Image' TabOrder = 2 object Label2: TLabel Left = 286 Top = 118 Width = 48 Height = 16 Caption = '&Repeat:' FocusControl = cbRepeat Visible = False end object Label3: TLabel Left = 286 Top = 177 Width = 114 Height = 16 Caption = '&Horisontal position:' Visible = False end object lHPos: TLabel Left = 364 Top = 202 Width = 12 Height = 16 Caption = '%' Visible = False end object Label5: TLabel Left = 286 Top = 236 Width = 98 Height = 16 Caption = '&Vertical position:' Visible = False end object lVPos: TLabel Left = 364 Top = 261 Width = 12 Height = 16 Caption = '%' Visible = False end object bLoad: TButton Left = 286 Top = 20 Width = 139 Height = 30 Caption = '&Load...' TabOrder = 0 OnClick = bLoadClick end object pnImage: TPanel Left = 10 Top = 20 Width = 267 Height = 267 BevelOuter = bvLowered TabOrder = 1 end object bClear: TButton Left = 286 Top = 59 Width = 139 Height = 31 Caption = 'Cl&ear' TabOrder = 2 OnClick = bClearClick end object cbRepeat: TComboBox Left = 286 Top = 138 Width = 139 Height = 24 Style = csDropDownList ItemHeight = 16 ItemIndex = 0 TabOrder = 3 Text = '(none)' Visible = False OnChange = cbRepeatChange Items.Strings = ( '(none)' 'Tile' 'Vertically' 'Horisontally') end object eHPos: TXSpinEdit Left = 286 Top = 197 Width = 70 Height = 24 TabOrder = 4 Text = '0' Visible = False MinValue = -100 MaxValue = 100 Value = 0 Step = 5 end object eVPos: TXSpinEdit Left = 286 Top = 256 Width = 70 Height = 24 TabOrder = 5 Text = '0' Visible = False MinValue = -100 MaxValue = 100 Value = 0 Step = 1 end object rg_repeat: TRadioGroup Left = 288 Top = 112 Width = 137 Height = 65 Caption = ' Style : ' Items.Strings = ( 'Tiles' 'Fixed') TabOrder = 6 end end object bOK: TButton Left = 207 Top = 404 Width = 119 Height = 30 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 3 end object bCancel: TButton Left = 345 Top = 404 Width = 119 Height = 30 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 4 end end